home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 February / EnigmA AMIGA RUN 04 (1996)(G.R. Edizioni)(IT)[!][issue 1996-02][Skylink CD III].iso / earcd / faq / tg15demo.lha / Trx / Pics.rexx < prev    next >
OS/2 REXX Batch file  |  1995-05-07  |  2KB  |  59 lines
  1. /*  EPISODE PICS SCRIPT BY JIM HINES- - SURE HOPE IT WORKS */
  2.  
  3. if ~show('L','rexxarplib.library') then
  4.     call addlib('rexxarplib.library',0,-30)
  5.  
  6. /* The args are taken from the document itself */
  7. arg pic orent episode port .
  8.  
  9. if ~showlist(p, NOTIFYPORT) then do
  10.     address command 'trekguide:vt trekguide:trekpics/EP'pic
  11.         exit
  12.     end
  13.  
  14. if port = '' then do
  15.     hostport = hostport
  16.     address ARexx "'call CreateHost(hostport, notifyport, trekguide)'"
  17.     WaitForPort hostport
  18.     end
  19.  
  20. if port = 2 then do
  21.     hostport = hostport.2
  22.     address ARexx "'call CreateHost(hostport.2, notifyport, trekguide)'"
  23.     WaitForPort hostport
  24.     end
  25.  
  26. if port = 3 then do
  27.     hostport = hostport.3
  28.     address ARexx "'call CreateHost(hostport.3, notifyport, trekguide)'"
  29.     WaitForPort hostport
  30.     end
  31.  
  32. if port = 4 then do
  33.     hostport = hostport.4
  34.     address ARexx "'call CreateHost(hostport.4, notifyport, trekguide)'"
  35.     WaitForPort hostport
  36.     end
  37.  
  38. idcmp = 'CLOSEWINDOW+GADGETUP'
  39. flags = 'WINDOWCLOSE+WINDOWDRAG+WINDOWDEPTH+WINDOWSIZING+BACKFILL'
  40.  
  41. if orent = "V" then do
  42.  
  43. call OpenWindow(hostport, 160, 50, 315, 325, idcmp, flags, episode)
  44. call SetNotify(hostport, CLOSEWINDOW, hostport)
  45. call IFFImage(hostport, 'trekguide:trekpics/EP'pic, 5, 11, 291, 313, nocolor)
  46. closeport(hostport)
  47. end
  48.  
  49. if orent = "H" then do
  50.  
  51. call OpenWindow(hostport, 160, 66, 390, 273, idcmp, flags, episode)
  52. call SetNotify(hostport, CLOSEWINDOW, hostport)
  53. call IFFImage(hostport, 'trekguide:trekpics/ep'pic, 5, 11, 367, 258, nocolor)
  54. closeport(hostport)
  55. closeport(hostport.2)
  56. closeport(hostport.3)
  57. closeport(hostport.4)
  58. end
  59.